;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 3-12-2008
;;;		   EDITED: 3-12-2008
;;;
(defun c:vpfoff ()
  (SETQ vpl_freeze_list NIL)
  (SETQ this_layer (TBLNEXT "Layer" T))
  (test_layer_onthaw)
  (WHILE (SETQ this_layer (TBLNEXT "Layer"))
    (test_layer_onthaw)
  )
  (IF vpl_freeze_list
    (PROGN
      (SETQ vpl_freeze_str (CAR vpl_freeze_list)
            vpl_freeze_list (CDR vpl_freeze_list)
      )
      (WHILE vpl_freeze_list
        (SETQ vpl_freeze_str (STRCAT vpl_freeze_str "," (CAR vpl_freeze_list))
              vpl_freeze_list (CDR vpl_freeze_list)
        )
        (IF (> (STRLEN vpl_freeze_str) 240)
          (PROGN
            (COMMAND ".vplayer" "f" vpl_freeze_str "c" "")
            (SETQ this_vpl_freeze_str vpl_freeze_str
                  vpl_freeze_str (CAR vpl_freeze_list)
                  vpl_freeze_list (CDR vpl_freeze_list)
            )
          )
        )
      )
      (IF (EQ this_vpl_freeze_str vpl_freeze_str)
        NIL
        (IF vpl_freeze_str
          (COMMAND ".vplayer" "f" vpl_freeze_str "c" "")
        )
      )
    )
  )
  (PRINC)
)
(DEFUN test_layer_onthaw ()
  (IF
    (OR
      (EQ
        (BOOLE 1 (CDR (ASSOC 70 this_layer)) 1)
        1
      )
      (< (CDR (ASSOC 62 this_layer)) 0)
    )
    (SETQ vpl_freeze_list (APPEND vpl_freeze_list (LIST (CDR (ASSOC 2 this_layer)))))
  )
)